home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Shareware
/
Business Shareware.iso
/
start
/
database
/
ts20
/
noblanks.prg
< prev
next >
Wrap
Text File
|
1991-11-23
|
379b
|
18 lines
*
* Remove all blanks from a string
*
FUNCTION NOBLANKS
PARAMETER inString
*
outLen = LEN(inString)
inCount = 1
outString = ''
DO WHILE inCount <= outLen
IF SUBSTR(inString, inCount, 1) <> ' '
outString = outString + substr(inString, inCount, 1)
ENDIF
inCount=inCount+1
ENDDO
outString = outString + SPACE(outLen-LEN(outString))
RETURN outString